home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8503a.d64 / wator kassette (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  17KB  |  422 lines
  1. 10 REM ********************************
  2. 11 REM *                              *
  3. 12 REM *  WATOR VERSION 1.0/K         *
  4. 13 REM *   8.4.1985                   *
  5. 14 REM *                              *
  6. 15 REM *  COPYRIGHT BY                *
  7. 16 REM *                              *
  8. 17 REM *      SIEGMAR KUTSCHKER       *
  9. 18 REM *      SACHSENHEIMER WEG 5     *
  10. 19 REM *      7122 BESIGHEIM          *
  11. 20 REM *                              *
  12. 21 REM *  NACH EINER IDEE AUS         *
  13. 22 REM *                              *
  14. 23 REM *  SPEKTRUM DER WISSENSCHAFT   *
  15. 24 REM *                              *
  16. 25 REM *     2/85                     *
  17. 26 REM *                              *
  18. 30 REM ********************************
  19. 40 POKE 56,112:POKE 55,0:REM BASIC BEREICH EINSCHRAENKEN
  20. 45 :
  21. 50 IF PEEK(2) = 0 THEN GOSUB 24000:POKE2,1
  22. 60 REM DEFINITIONEN DER ADRESSEN
  23. 70 HP = 34816 :REM PROGRAMM-START
  24. 75 ZP = 36608 :REM ERSATZZEROPAGE
  25. 80 FA = ZP + 116:REM FISCHE ANZAHL
  26. 85 HA = ZP + 118:REM HAIE ANZAHL
  27. 90 VF = ZP + 120:REM VERMEHRUNGSALTER FISCH
  28. 95 VH = ZP + 121:REM VERMEHRUNGSALTER HAIE
  29. 100 HU = ZP + 122:REM ALTER IN DEM HAIE VERHUNGERN
  30. 105 ZU = ZP + 6:REM ZUFALLSGENERATOR
  31. 115 HU%=1:VH%=1:VF%=1:REM ANFANGSWERTE SETZEN
  32. 120 POKE 53280,0:POKE 53281,0 :POKE 646,1:REM FARBE SETZEN
  33. 130 PRINT CHR$(147):REM BILDSCHIRM LOESCHEN
  34. 140 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  35. 150 PRINT"           [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208] "
  36. 160 PRINT"           [180]                  [170] "
  37. 170 PRINT"           [180]    W A T O R     [170] "
  38. 180 PRINT"           [180]                  [170] "
  39. 190 PRINT"           [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
  40. 200 PRINT:PRINT:PRINT:PRINT:PRINT TAB(3) "WOLLEN SIE EINE ANLEITUNG LESEN?"
  41. 210 PRINT:PRINT TAB(3) "(J/N)"
  42. 220 GET T$:IF T$ = "" THEN 220
  43. 230 IF T$ =  "J" THEN GOSUB 16000:GOTO250
  44. 240 IF T$ <> "N" THEN 220
  45. 250 GOSUB 10200
  46. 300 REM MENUE
  47. 301 POKE 53280,0:POKE 53281,0 :POKE 646,8:REM FARBE SETZEN
  48. 305 PRINTCHR$(147);:PRINT TAB(11)"ZYKLENANZAHL:  " AZ:POKE 646,1:PRINT
  49. 310 PRINT"FISCHE VERMEHREN SICH NACH      JAHR(EN)"
  50. 315 PRINT:POKE 646,7
  51. 320 PRINT" HAIE  VERMEHREN SICH NACH      JAHR(EN)
  52. 325 [153]:[153]:[151] 646,1
  53. 330 [153]"      WIR HABEN DERZEIT         FISCH(E)
  54. 335 POKE 646,7
  55. 340 PRINT"                    UND         HAI(E)
  56. 345 [153]:[151] 646,7
  57. 350 [153]"  DIE HAIE VERHUNGERN NACH      JAHR(EN)
  58. 355 PRINT:POKE 646,5
  59. 360 PRINT"          BITTE WAEHLEN SIE:
  60. 365 [153]:[153]: [151] 646,14
  61. 370 [153]"    <1> ANLEITUNG
  62. 375 PRINT:POKE 646,3
  63. 380 PRINT"    <2> AENDERN DER PARAMETER
  64. 385 [153]:[151] 646,4
  65. 390 [153]"    <3> FORTFAHREN IM PROGRAMM
  66. 400 PRINTCHR$(19):PRINT:POKE 646,10
  67. 410 PRINT TAB(26) VF%
  68. 420 PRINT:PRINTTAB(26) VH%
  69. 430 PRINT:PRINT:PRINTTAB(26) FA%
  70. 440 PRINTTAB(26) HA%
  71. 450 PRINT:PRINTTAB(26) HU%
  72. 460 POKE 646,1
  73. 500 GET T$:IF T$ = "" THEN 500
  74. 510 IF T$ = "1" THEN GOSUB 16000:GOTO300
  75. 520 IF T$ = "2" THEN GOSUB 10000:GOTO300
  76. 530 IF T$ = "H" THEN GOSUB 18650:GOTO300
  77. 540 IF T$<> "3"THEN 500
  78. 1000 POKE ZU,256*RND(1)
  79. 1010 POKE ZU+1,256*RND(1)
  80. 1020 IF AZ=0 THEN SYS HP
  81. 1030 SYS HP+3
  82. 1040 IF PEEK(ZP+128)=0 THEN AZ=AZ+65536:GOTO 1030
  83. 1050 AZ = AZ + PEEK(ZP+129) + PEEK(ZP+130)*256+1
  84. 1060 FA% = PEEK(FA)+PEEK(FA+1)*256
  85. 1070 HA% = PEEK(HA)+PEEK(HA+1)*256
  86. 1100 GOTO 300
  87. 9000 STOP
  88. 10000 PRINTCHR$(147):POKE 646,1:UG =0:OG=512:I=FA%:
  89. 10005 PRINT"OHNE EINGABE BLEIBEN DIE ALTEN WERTE    ERHALTEN":PRINT:PRINT:PRINT
  90. 10010 PRINT"BISHER HATTEN WIR "I "FISCHE":PRINT
  91. 10020 PRINT"WIEVIELE IN ZUKUNFT":GOSUB15000
  92. 10030 PRINT:FA% = I
  93. 10040 UG = 0:OG = 512 -FA%:I = HA%
  94. 10050 PRINT"BISHER HATTEN WIR "I "HAIE":PRINT
  95. 10060 PRINT"WIEVIELE IN ZUKUNFT":GOSUB15000
  96. 10070 PRINT:HA% = I
  97. 10080 UG = 1:OG = 255
  98. 10090 PRINT:PRINT:PRINT"BISHER VERMEHRTEN SICH FISCHE NACH"
  99. 10100 PRINT"DEM "VF%" TEN JAHR"
  100. 10110 PRINT"NACH WIEVIELEN JAHREN IN ZUKUNFT"
  101. 10120 I = VF%:GOSUB 15000:VF%=I
  102. 10130 PRINT:PRINT:PRINT"BISHER VERMEHRTEN SICH HAIE NACH"
  103. 10140 PRINT"DEM "VH%" TEN JAHR"
  104. 10150 PRINT"NACH WIEVIELEN JAHREN IN ZUKUNFT"
  105. 10160 I = VH%:GOSUB 15000:VH%=I
  106. 10170 PRINT:PRINT:PRINT"BISHER VERHUNGERTEN  HAIE NACH"
  107. 10180 PRINT"DEM "HU%" TEN JAHR"
  108. 10190 PRINT"NACH WIEVIELEN JAHREN IN ZUKUNFT":I=HU%:GOSUB15000:HU%=I
  109. 10200 POKE VH,VH%-1:W = VH%-1:GOSUB 11000:POKE VH+3,W1
  110. 10210 POKE VF,VF%-1:W = VF%-1:GOSUB 11000:POKE VF+3,W1
  111. 10220 POKE HU,HU%-1:W = HU%-1:GOSUB 11000:POKE HU+3,W1
  112. 10240 POKE HA+1,INT(HA%/256)
  113. 10250 POKE HA,HA%-INT(HA%/256)*256
  114. 10260 POKE FA+1,INT(FA%/256)
  115. 10270 POKE FA,FA%-INT(FA%/256)*256
  116. 10280 AZ = 0
  117. 10300 RETURN
  118. 11000 W1=0
  119. 11010 IF W1<W THEN W1 = W1+W1+1:GOTO11010
  120. 11020 RETURN
  121. 14500 STOP
  122. 15000 INPUT I
  123. 15100 I=INT(I)
  124. 15200 IF UG <= I AND OG >=I THEN RETURN
  125. 15300 PRINT:PRINT"WERT ZWISCHEN " UG" UND "OG "EINGEBEN!":GOTO 15000
  126. 16000 REM  ANLEITUNG
  127. 16050 PRINT CHR$ (147):PRINT:PRINT:PRINT
  128. 16100 PRINT TAB(12) "*********"
  129. 16150 PRINT TAB(12) "* WATOR *"
  130. 16200 PRINT TAB(12) "*********"
  131. 16250 PRINT:PRINT
  132. 16300 PRINT TAB(5) "IST EIN SEHR INTERESSANTES":PRINT
  133. 16350 PRINT TAB(5) "SIMULATIONSPROGRAMM.":PRINT
  134. 16400 PRINTTAB(5)"SIMULIERT WIRD EIN OEKOSYSTEM, IN":PRINT
  135. 16450 PRINTTAB(5)"DEM SICH ZWEI VERSCHIEDENE ARTEN":PRINT
  136. 16500 PRINTTAB(10)"VON TIEREN TUMMELN:":PRINT
  137. 16550 PRINTTAB(11)"HAIE UND FISCHE.":PRINT:PRINT:PRINT
  138. 16600 GOSUB 21000:PRINT
  139. 16650 PRINTTAB(5)"JEDES TIER KANN SICH BEWEGEN UND":PRINT
  140. 16700 PRINTTAB(5)"SICH VERMEHREN, WOBEI DIE":PRINT
  141. 16750 PRINTTAB(5)"HAIE VERSUCHEN, DIE FISCHE ZU":PRINT
  142. 16800 PRINTTAB(5)"FRESSEN. NAHRUNG FUER DIE FISCHE":PRINT
  143. 16850 PRINTTAB(5)"GIBT ES IM UEBERFLUSS.":PRINT
  144. 16900 PRINTTAB(5)"FINDET EIN HAI EINE ZEIT LANG":PRINT
  145. 16950 PRINTTAB(5)"KEINEN FISCH, SO VERHUNGERT ER.":PRINT
  146. 17000 PRINTTAB(5)"LEBENSRAUM IST EIN SEE, DER IN":PRINT
  147. 17050 PRINTTAB(5)"DER FORM EINES TORUSSES GEKRUEMMT":PRINT
  148. 17100 PRINTTAB(5)"IST. DAHER DER NAME 'WATOR'.":PRINT
  149. 17110 PRINT:PRINT:GOSUB 21000
  150. 17120 FORI=0TO10:PRINT:NEXT
  151. 17200 PRINTTAB(5)"MEHR ZU DIESEM THEMA FINDEN SIE":PRINT
  152. 17230 PRINTTAB(5)"IM SPEKTRUM DER WISSENSCHAFT":PRINT
  153. 17260 PRINTTAB(15)"2/85.":FORI=0TO10:PRINT:NEXT:GOSUB 21000:
  154. 17265 FOR I=1TO 20:PRINT:NEXT
  155. 17270 PRINTTAB(5)"VON IHNEN KOENNEN 5 VERSCHIEDENE":PRINT
  156. 17300 PRINTTAB(5)"PARAMETER EINGESTELLT WERDEN.":PRINT
  157. 17310 PRINTTAB(10)"UND ZWAR:":FORI=0TO10:PRINT:NEXT:GOSUB 21000
  158. 17320 FOR I=0TO 30:PRINT:NEXT
  159. 17330 PRINTTAB(5)"DIE VARIABLE":PRINT
  160. 17350 PRINTTAB(5)"'ANZAHL DER FISCHE'.":PRINT
  161. 17370 PRINTTAB(5)"DIESE VARIABLE WIRD AM ANFANG":PRINT
  162. 17400 PRINTTAB(5)"EINES DURCHLAUFS GESETZT UND":PRINT
  163. 17420 PRINTTAB(5)"WAEHREND DES DURCHLAUFS STAENDIG":PRINT
  164. 17450 PRINTTAB(5)"AKTUALISIERT.":PRINT
  165. 17470 PRINTTAB(5)"MAN FINDET IHREN WERT AM BILD-":PRINT
  166. 17500 PRINTTAB(5)"SCHIRM UNTEN LINKS."
  167. 17530 PRINT:PRINT:PRINT:PRINT:GOSUB 21000
  168. 17550 FORI=1TO30:PRINT:NEXT
  169. 17570 PRINTTAB(5)"'ANZAHL DER HAIE' IST DIE":PRINT
  170. 17600 PRINTTAB(5)"ENTSPRECHENDE VARIABLE FUER DIE":PRINT
  171. 17630 PRINTTAB(5)"HAIE.":PRINT
  172. 17650 PRINTTAB(5)"MAN FINDET SIE UNTEN RECHTS.":PRINT
  173. 17670 PRINTTAB(5)"IST DIE ANZAHL DER HAIE = 0, SO":PRINT
  174. 17680 PRINTTAB(5)"KEHRT DAS PROGRAMM IN DAS GRUND-":PRINT
  175. 17690 PRINTTAB(5)"MENUE ZURUECK, EBENSO, WENN":PRINT
  176. 17693 PRINTTAB(5)"WAEHREND DES PROGRAMMLAUFS DIE":PRINT
  177. 17695 PRINTTAB(5)"RESTORE-TASTE GEDRUECKT WIRD."
  178. 17700 PRINT:PRINT:PRINT:PRINT:PRINT:GOSUB 21000:FORI=0TO30:PRINT:NEXT
  179. 17720 PRINTTAB(5)"DIE VARIABLE":PRINT
  180. 17730 PRINTTAB(5)"'VERMEHRUNG FISCHE' GIBT AN,NACH":PRINT
  181. 17750 PRINTTAB(5)"WIEVIELEN JAHREN SICH DIE FISCHE":PRINT
  182. 17770 PRINTTAB(5)"VERMEHREN;":PRINT
  183. 17800 PRINTTAB(5)"OB NACH DEM ERSTEN, ZWEITEN":PRINT
  184. 17830 PRINTTAB(5)"DRITTEN.....":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  185. 17850 GOSUB 21000:FORI=0TO30:PRINT:NEXT
  186. 17870 PRINTTAB(5)"'VERMEHRUNG HAIE' ERFUELLT DENSEL-":PRINT
  187. 17900 PRINTTAB(5)"BEN ZWECK BEI DEN HAIEN.":PRINT
  188. 17920 FOR I=0TO 10:PRINT:NEXT:GOSUB 21000
  189. 17950 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  190. 17970 PRINTTAB(5)"DIE VARIABLE 'HUNGER' GIBT AN,":PRINT
  191. 18000 PRINTTAB(5)"NACH WIEVIELEN JAHREN EIN HAI":PRINT
  192. 18030 PRINTTAB(5)"STIRBT, WENN ER IN DIESER ZEIT":PRINT
  193. 18050 PRINTTAB(5)"KEINEN FISCH ZUM FRESSEN FINDET.":PRINT
  194. 18070 PRINTTAB(5)"OB NACH EIN, ZWEI, DREI.....":PRINT
  195. 18100 PRINTTAB(5)"JAHREN."
  196. 18130 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  197. 18150 GOSUB21000
  198. 18170 FORI=1TO20:PRINT:NEXT
  199. 18200 PRINTTAB(5)"ZUSAETZLICH FINDEN SIE IN DER ":PRINT
  200. 18230 PRINTTAB(5)"MITTE OBEN DIE ANZAHL DER ZYKLEN,":PRINT
  201. 18250 PRINTTAB(5)"DIE SEIT DEM START DIESER":PRINT
  202. 18270 PRINTTAB(5)"KOMBINATION VERGANGEN SIND."
  203. 18300 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  204. 18330 GOSUB 21000:FORI=1TO15:PRINT:NEXT
  205. 18350 PRINTTAB(5)"DIES KLINGT JETZT ALLES":PRINT
  206. 18370 PRINTTAB(5)"FURCHTBAR KOMPLIZIERT, UND SIE ":PRINT
  207. 18400 PRINTTAB(5)"WERDEN AM ANFANG SCHWIERIGKEITEN":PRINT
  208. 18430 PRINTTAB(5)"HABEN, EIN OEKOSYSTEM ZU ENTWER-":PRINT
  209. 18450 PRINTTAB(5)"FEN, DAS NICHT SCHON NACH WENIGEN":PRINT
  210. 18470 PRINTTAB(5)"HUNDERT JAHREN ZUSAMMENBRICHT.   ":PRINT:PRINT
  211. 18500 PRINTTAB(5)"DRUECKEN SIE 'H' UND DER COMPUTER":PRINT
  212. 18530 PRINTTAB(5)"STELLT IHNEN EINE KOMBINATION EIN,":PRINT
  213. 18550 PRINTTAB(5)"DIE SICHER LAUEFT!":PRINT
  214. 18600 GETT$:IFT$=""THEN 18600
  215. 18630 IFT$<>"H"THEN RETURN
  216. 18650 VH%=15:VF%=3:HU%=2:FA%=400:HA%=20:GOTO10200
  217. 21000 PRINTTAB(7)"WEITER MIT RETURN[146]"
  218. 21020 GETT$:IF T$ <> CHR$(13) THEN 21020
  219. 21030 GETT$:RETURN
  220. 24000 AD = 34816
  221. 24010 SU = 0:FOR I = 1 TO 8: READ A :POKE AD,A:SU=SU+A:AD=AD+1:NEXT
  222. 24020 READA:IF SU<>A THENPRINT"TIPPFEHLER IN ZEILE "30000 + 10*Z:END
  223. 24030 Z=Z+1:IFAD<=36390THEN24010
  224. 24500 RETURN
  225. 30000 DATA  76, 165, 137, 76, 163, 140, 81, 2, 840
  226. 30010 DATA  46, 0, 0, 3, 4, 32, 120, 216, 421
  227. 30020 DATA  32, 104, 141, 32, 121, 141, 169, 128, 868
  228. 30030 DATA  162, 7, 24, 149, 17, 74, 202, 16, 651
  229. 30040 DATA  250, 169, 73, 141, 24, 3, 169, 141, 970
  230. 30050 DATA  141, 25, 3, 173, 11, 136, 141, 33, 663
  231. 30060 DATA  208, 173, 10, 136, 141, 32, 208, 169, 1077
  232. 30070 DATA  128, 141, 138, 2, 248, 169, 0, 133, 959
  233. 30080 DATA  152, 162, 1, 134, 151, 162, 19, 149, 930
  234. 30090 DATA  152, 165, 151, 149, 153, 24, 101, 151, 1046
  235. 30100 DATA  133, 151, 165, 152, 101, 152, 133, 152, 1139
  236. 30110 DATA  202, 202, 16, 235, 216, 96, 32, 121, 1120
  237. 30120 DATA  141, 32, 104, 141, 169, 71, 141, 24, 823
  238. 30130 DATA  3, 169, 254, 141, 25, 3, 88, 96, 779
  239. 30140 DATA  165, 6, 133, 4, 165, 7, 133, 5, 618
  240. 30150 DATA  169, 0, 133, 2, 133, 3, 162, 15, 617
  241. 30160 DATA  24, 102, 2, 102, 3, 102, 4, 102, 441
  242. 30170 DATA  5, 144, 13, 24, 165, 3, 101, 7, 462
  243. 30180 DATA  133, 3, 165, 2, 101, 6, 133, 2, 545
  244. 30190 DATA  202, 16, 230, 165, 4, 73, 180, 133, 1003
  245. 30200 DATA  7, 165, 3, 73, 229, 133, 6, 162, 778
  246. 30210 DATA  7, 134, 16, 169, 0, 102, 3, 102, 533
  247. 30220 DATA  4, 42, 102, 3, 102, 4, 42, 149, 448
  248. 30230 DATA  8, 202, 16, 239, 96, 166, 16, 180, 923
  249. 30240 DATA  8, 198, 16, 48, 171, 96, 104, 141, 782
  250. 30250 DATA  62, 3, 104, 141, 63, 3, 32, 94, 502
  251. 30260 DATA  136, 76, 102, 254, 41, 15, 133, 25, 782
  252. 30270 DATA  208, 3, 32, 198, 136, 32, 189, 136, 934
  253. 30280 DATA  200, 152, 41, 3, 168, 165, 25, 57, 811
  254. 30290 DATA  17, 0, 240, 244, 200, 152, 24, 10, 887
  255. 30300 DATA  133, 26, 96, 204, 4, 244, 4, 28, 739
  256. 30310 DATA  5, 68, 5, 108, 5, 148, 5, 188, 532
  257. 30320 DATA  5, 228, 5, 12, 6, 52, 6, 92, 406
  258. 30330 DATA  6, 132, 6, 172, 6, 212, 6, 252, 792
  259. 30340 DATA  6, 36, 7, 133, 107, 138, 41, 31, 499
  260. 30350 DATA  133, 108, 169, 0, 133, 109, 152, 41, 845
  261. 30360 DATA  15, 168, 10, 10, 10, 10, 10, 38, 271
  262. 30370 DATA  109, 101, 108, 166, 107, 149, 37, 149, 926
  263. 30380 DATA  57, 149, 47, 149, 67, 149, 77, 165, 860
  264. 30390 DATA  109, 105, 112, 149, 38, 105, 2, 149, 769
  265. 30400 DATA  48, 105, 2, 149, 58, 105, 2, 149, 618
  266. 30410 DATA  68, 105, 2, 149, 78, 152, 10, 168, 732
  267. 30420 DATA  185, 243, 136, 101, 108, 149, 97, 149, 1168
  268. 30430 DATA  87, 185, 244, 136, 105, 0, 149, 98, 1004
  269. 30440 DATA  105, 212, 149, 88, 96, 169, 255, 129, 1203
  270. 30450 DATA  37, 129, 47, 129, 57, 129, 67, 129, 724
  271. 30460 DATA  77, 173, 13, 136, 129, 97, 173, 12, 810
  272. 30470 DATA  136, 129, 87, 96, 129, 37, 169, 0, 783
  273. 30480 DATA  129, 57, 173, 8, 136, 129, 97, 173, 902
  274. 30490 DATA  9, 136, 129, 87, 96, 129, 47, 152, 785
  275. 30500 DATA  129, 77, 169, 0, 129, 67, 169, 255, 995
  276. 30510 DATA  129, 37, 173, 6, 136, 129, 97, 173, 880
  277. 30520 DATA  7, 136, 129, 87, 96, 32, 14, 136, 637
  278. 30530 DATA  165, 120, 74, 133, 132, 165, 121, 74, 984
  279. 30540 DATA  133, 134, 169, 0, 133, 131, 133, 133, 966
  280. 30550 DATA  169, 0, 133, 110, 133, 112, 133, 147, 937
  281. 30560 DATA  133, 148, 133, 149, 133, 150, 168, 169, 1183
  282. 30570 DATA  4, 133, 111, 169, 216, 133, 113, 162, 1041
  283. 30580 DATA  3, 169, 160, 145, 110, 173, 10, 136, 906
  284. 30590 DATA  145, 112, 136, 208, 244, 230, 111, 230, 1416
  285. 30600 DATA  113, 202, 48, 7, 208, 235, 160, 232, 1205
  286. 30610 DATA  76, 209, 137, 169, 160, 141, 0, 7, 899
  287. 30620 DATA  173, 10, 136, 141, 0, 219, 32, 223, 934
  288. 30630 DATA  139, 169, 0, 32, 19, 137, 32, 101, 629
  289. 30640 DATA  137, 32, 232, 139, 176, 243, 169, 0, 1128
  290. 30650 DATA  133, 110, 133, 111, 165, 116, 197, 110, 1075
  291. 30660 DATA  208, 9, 165, 117, 197, 111, 208, 3, 1018
  292. 30670 DATA  76, 58, 138, 32, 2, 140, 32, 112, 590
  293. 30680 DATA  136, 165, 6, 37, 123, 197, 120, 48, 832
  294. 30690 DATA  3, 56, 229, 120, 162, 0, 32, 124, 726
  295. 30700 DATA  137, 230, 110, 208, 215, 230, 111, 76, 1317
  296. 30710 DATA  12, 138, 169, 0, 133, 110, 133, 111, 806
  297. 30720 DATA  165, 118, 197, 110, 208, 9, 165, 119, 1091
  298. 30730 DATA  197, 111, 208, 3, 76, 122, 138, 32, 887
  299. 30740 DATA  2, 140, 32, 112, 136, 165, 6, 37, 630
  300. 30750 DATA  125, 197, 122, 48, 3, 56, 229, 122, 902
  301. 30760 DATA  168, 165, 7, 37, 124, 197, 121, 48, 867
  302. 30770 DATA  3, 56, 229, 121, 162, 0, 32, 141, 744
  303. 30780 DATA  137, 230, 110, 208, 203, 230, 111, 76, 1305
  304. 30790 DATA  64, 138, 160, 0, 169, 255, 153, 0, 939
  305. 30800 DATA  116, 153, 0, 117, 136, 208, 247, 76, 1053
  306. 30810 DATA  94, 136, 32, 223, 139, 169, 0, 32, 825
  307. 30820 DATA  19, 137, 169, 255, 129, 67, 161, 57, 994
  308. 30830 DATA  240, 88, 161, 37, 201, 255, 240, 82, 1304
  309. 30840 DATA  32, 46, 140, 32, 87, 140, 32, 125, 634
  310. 30850 DATA  140, 162, 0, 165, 126, 37, 127, 208, 965
  311. 30860 DATA  20, 161, 37, 197, 120, 240, 6, 24, 805
  312. 30870 DATA  105, 1, 76, 192, 138, 32, 76, 141, 761
  313. 30880 DATA  129, 37, 76, 242, 138, 32, 212, 136, 1002
  314. 30890 DATA  162, 0, 161, 37, 197, 120, 208, 21, 906
  315. 30900 DATA  169, 0, 129, 37, 32, 76, 141, 166, 750
  316. 30910 DATA  26, 32, 124, 137, 230, 116, 208, 18, 891
  317. 30920 DATA  230, 117, 76, 242, 138, 24, 105, 1, 933
  318. 30930 DATA  166, 26, 32, 124, 137, 162, 0, 32, 679
  319. 30940 DATA  101, 137, 32, 232, 139, 176, 150, 76, 1043
  320. 30950 DATA  253, 138, 76, 214, 139, 32, 223, 139, 1214
  321. 30960 DATA  169, 0, 32, 19, 137, 169, 255, 129, 910
  322. 30970 DATA  57, 161, 67, 240, 237, 161, 47, 201, 1171
  323. 30980 DATA  255, 240, 231, 32, 46, 140, 32, 87, 1063
  324. 30990 DATA  140, 165, 126, 73, 15, 240, 68, 32, 859
  325. 31000 DATA  212, 136, 166, 26, 32, 101, 137, 164, 974
  326. 31010 DATA  116, 136, 132, 116, 192, 255, 208, 2, 1157
  327. 31020 DATA  198, 117, 162, 0, 161, 47, 197, 121, 1003
  328. 31030 DATA  240, 18, 72, 32, 101, 137, 166, 26, 792
  329. 31040 DATA  160, 0, 104, 24, 105, 1, 32, 141, 567
  330. 31050 DATA  137, 76, 214, 139, 230, 118, 208, 2, 1124
  331. 31060 DATA  230, 119, 169, 0, 168, 32, 141, 137, 996
  332. 31070 DATA  32, 90, 141, 166, 26, 32, 141, 137, 765
  333. 31080 DATA  76, 214, 139, 162, 0, 161, 77, 197, 1026
  334. 31090 DATA  122, 208, 17, 32, 101, 137, 164, 118, 899
  335. 31100 DATA  136, 132, 118, 192, 255, 208, 95, 198, 1334
  336. 31110 DATA  119, 76, 214, 139, 24, 105, 1, 129, 807
  337. 31120 DATA  77, 32, 125, 140, 162, 0, 161, 47, 744
  338. 31130 DATA  197, 121, 240, 36, 24, 105, 1, 72, 796
  339. 31140 DATA  165, 127, 208, 6, 104, 129, 47, 76, 862
  340. 31150 DATA  214, 139, 32, 212, 136, 162, 0, 161, 1056
  341. 31160 DATA  77, 168, 104, 166, 26, 32, 141, 137, 851
  342. 31170 DATA  162, 0, 32, 101, 137, 76, 214, 139, 861
  343. 31180 DATA  165, 127, 240, 29, 32, 212, 136, 162, 1103
  344. 31190 DATA  0, 161, 77, 168, 169, 0, 129, 47, 751
  345. 31200 DATA  32, 90, 141, 166, 26, 32, 141, 137, 765
  346. 31210 DATA  230, 118, 208, 10, 230, 119, 76, 214, 1205
  347. 31220 DATA  139, 32, 90, 141, 129, 47, 32, 232, 842
  348. 31230 DATA  139, 144, 3, 76, 0, 139, 96, 169, 766
  349. 31240 DATA  0, 170, 168, 133, 114, 133, 115, 96, 929
  350. 31250 DATA  166, 114, 164, 115, 232, 224, 32, 208, 1255
  351. 31260 DATA  11, 162, 0, 200, 192, 16, 208, 4, 793
  352. 31270 DATA  24, 76, 253, 139, 56, 134, 114, 132, 928
  353. 31280 DATA  115, 96, 32, 112, 136, 165, 6, 41, 703
  354. 31290 DATA  31, 133, 114, 165, 7, 41, 15, 133, 639
  355. 31300 DATA  115, 166, 114, 164, 115, 169, 0, 32, 875
  356. 31310 DATA  19, 137, 161, 37, 33, 47, 201, 255, 890
  357. 31320 DATA  240, 11, 32, 232, 139, 176, 234, 32, 1096
  358. 31330 DATA  223, 139, 76, 17, 140, 96, 166, 114, 971
  359. 31340 DATA  164, 115, 232, 169, 2, 32, 19, 137, 870
  360. 31350 DATA  166, 114, 164, 115, 136, 169, 4, 32, 900
  361. 31360 DATA  19, 137, 166, 114, 164, 115, 200, 169, 1084
  362. 31370 DATA  6, 32, 19, 137, 166, 114, 164, 115, 753
  363. 31380 DATA  202, 169, 8, 32, 19, 137, 96, 169, 832
  364. 31390 DATA  0, 133, 126, 24, 162, 8, 161, 37, 651
  365. 31400 DATA  105, 1, 38, 126, 162, 6, 161, 37, 636
  366. 31410 DATA  105, 1, 38, 126, 162, 4, 161, 37, 634
  367. 31420 DATA  105, 1, 38, 126, 162, 2, 161, 37, 632
  368. 31430 DATA  105, 1, 38, 126, 96, 169, 0, 133, 668
  369. 31440 DATA  127, 24, 162, 8, 161, 47, 105, 1, 635
  370. 31450 DATA  38, 127, 162, 6, 161, 47, 105, 1, 647
  371. 31460 DATA  38, 127, 162, 4, 161, 47, 105, 1, 645
  372. 31470 DATA  38, 127, 162, 2, 161, 47, 105, 1, 643
  373. 31480 DATA  38, 127, 96, 32, 14, 136, 162, 0, 605
  374. 31490 DATA  160, 0, 132, 128, 134, 129, 132, 130, 945
  375. 31500 DATA  32, 138, 138, 248, 24, 165, 147, 105, 997
  376. 31510 DATA  1, 133, 147, 133, 140, 165, 148, 105, 972
  377. 31520 DATA  0, 133, 148, 133, 141, 165, 149, 105, 974
  378. 31530 DATA  0, 133, 149, 133, 142, 165, 150, 105, 977
  379. 31540 DATA  0, 133, 150, 133, 143, 169, 6, 133, 867
  380. 31550 DATA  145, 169, 53, 133, 110, 133, 112, 169, 1024
  381. 31560 DATA  4, 133, 111, 169, 216, 133, 113, 162, 1041
  382. 31570 DATA  3, 32, 197, 141, 166, 116, 164, 117, 936
  383. 31580 DATA  32, 1, 142, 173, 9, 136, 133, 145, 771
  384. 31590 DATA  169, 195, 133, 110, 133, 112, 169, 7, 1028
  385. 31600 DATA  133, 111, 169, 219, 133, 113, 162, 1, 1041
  386. 31610 DATA  32, 197, 141, 166, 118, 164, 119, 32, 969
  387. 31620 DATA  1, 142, 173, 7, 136, 133, 145, 169, 906
  388. 31630 DATA  224, 133, 110, 133, 112, 162, 1, 32, 907
  389. 31640 DATA  197, 141, 216, 165, 128, 208, 28, 165, 1248
  390. 31650 DATA  118, 5, 119, 208, 6, 169, 1, 133, 759
  391. 31660 DATA  128, 208, 16, 166, 129, 164, 130, 232, 1173
  392. 31670 DATA  208, 1, 200, 224, 255, 208, 7, 192, 1295
  393. 31680 DATA  255, 208, 3, 76, 94, 136, 76, 172, 1020
  394. 31690 DATA  140, 230, 128, 64, 165, 131, 24, 105, 987
  395. 31700 DATA  1, 197, 132, 48, 2, 169, 0, 133, 682
  396. 31710 DATA  131, 96, 165, 133, 24, 105, 1, 197, 852
  397. 31720 DATA  134, 48, 2, 169, 0, 133, 133, 96, 715
  398. 31730 DATA  160, 2, 185, 0, 0, 190, 0, 143, 680
  399. 31740 DATA  153, 0, 143, 150, 0, 200, 208, 242, 1096
  400. 31750 DATA  96, 160, 0, 132, 110, 132, 112, 132, 874
  401. 31760 DATA  135, 132, 137, 169, 3, 133, 107, 169, 985
  402. 31770 DATA  4, 133, 111, 169, 216, 133, 113, 169, 1048
  403. 31780 DATA  122, 133, 136, 169, 126, 133, 138, 136, 1093
  404. 31790 DATA  177, 110, 170, 177, 135, 145, 110, 138, 1162
  405. 31800 DATA  145, 135, 177, 112, 170, 177, 137, 145, 1198
  406. 31810 DATA  112, 138, 145, 137, 136, 192, 255, 208, 1323
  407. 31820 DATA  231, 230, 111, 230, 113, 230, 136, 230, 1511
  408. 31830 DATA  138, 198, 107, 48, 7, 208, 217, 160, 1083
  409. 31840 DATA  232, 76, 152, 141, 96, 160, 0, 230, 1087
  410. 31850 DATA  146, 181, 140, 32, 240, 141, 202, 16, 1098
  411. 31860 DATA  248, 96, 240, 15, 72, 169, 0, 133, 973
  412. 31870 DATA  146, 104, 9, 48, 145, 110, 165, 145, 872
  413. 31880 DATA  145, 112, 96, 165, 146, 240, 243, 169, 1316
  414. 31890 DATA  0, 145, 112, 169, 160, 145, 110, 96, 937
  415. 31900 DATA  72, 74, 74, 74, 74, 32, 210, 141, 751
  416. 31910 DATA  200, 104, 41, 15, 32, 210, 141, 200, 943
  417. 31920 DATA  96, 134, 151, 132, 152, 169, 0, 133, 967
  418. 31930 DATA  140, 133, 141, 162, 19, 70, 152, 102, 919
  419. 31940 DATA  151, 144, 13, 24, 181, 153, 101, 140, 907
  420. 31950 DATA  133, 140, 181, 152, 101, 141, 133, 141, 1122
  421. 31960 DATA  202, 202, 16, 233, 96, 84, 90, 72, 995
  422.